1.1.1 Plot of the two variables

MISSING

start_year=2008
end_year=2011

worlDIndic=WDI(country = "all", indicator=c("SP.DYN.LE00.IN","NY.GDP.PCAP.CD"),
                start = start_year, end = end_year, extra = FALSE, cache = NULL)

names(worlDIndic)[names(worlDIndic)=="SI.POV.DDAY"]="Poverty %"
names(worlDIndic)[names(worlDIndic)=="SP.DYN.LE00.IN"]="LifeExpectancy"
names(worlDIndic)[names(worlDIndic)=="NY.GDP.PCAP.CD"]="GDPperCapita"

1.1.2 Data Frame downloaded

We can visualise the first rows of the data.frame MISSING

worlDIndicFirst = worlDIndic[1,]

# head(worlDindic)

plot_ly(worlDIndic, x = ~GDPperCapita, y = ~LifeExpectancy,
        size = ~GDPperCapita, text = ~paste("Country: ", country),
        type = "scatter",
        mode = "markers")

## Warning: Ignoring 107 observations

## Warning: `line.width` does not currently support multiple values.

MISSING The start and end year of this plot is 2008 and 2011 respectively.

1.1.3 Linear regression with life expectancy as dependent variable and GDP per Capita as independent variable

MISSING >There are 3 different ways to visualise tables in markdown. Can you find these in the cheatsheet? Which one are we using here?

simple_model = lm(LifeExpectancy ~ GDPperCapita,worlDIndic)
title = "Linear Relation between GDP per Capita and Life expectancy"
table = stargazer(simple_model, type="html", report=('vc*p'),column.labels=c("Dependent Variable"), dep.var.caption = title, dep.var.labels.include = TRUE,model.names=FALSE, align=TRUE, column.sep.width = "5000pt")

simple_model = lm(LifeExpectancy ~ GDPperCapita,worlDIndic)
title = "Linear Relation between GDP per Capita and Life expectancy"

knitr::kable(worlDIndic, caption = "Table with kable")

1.2.1 Data Frame downloaded

We can visualise the first rows of the data.frame

1.2.2 Plot of the two variables

plot_ly(worlDIndic, x = ~GDPperCapita, y = ~LifeExpectancy,
        size = ~GDPperCapita, text = ~paste("Country: ", country))

## No trace type specified:
##   Based on info supplied, a 'scatter' trace seems appropriate.
##   Read more about this trace type -> https://plot.ly/r/reference/#scatter

## No scatter mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode

## Warning: Ignoring 107 observations

## Warning: `line.width` does not currently support multiple values.

1.2.3 Linear regression with life expectancy as dependent variable and GDP per Capita as independent variable

simple_model = lm(LifeExpectancy ~ GDPperCapita,worlDIndic)
title = "Linear Relation between GDP per Capita and Life expectancy"
stargazer(simple_model, type="html", report=('vc*p'),column.labels=c("Dependent Variable"), dep.var.caption = title, dep.var.labels.include = TRUE,model.names=FALSE, align=TRUE, column.sep.width = "5000pt") 

## 
## <table style="text-align:center"><tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"></td><td>Linear Relation between GDP per Capita and Life expectancy</td></tr>
## <tr><td></td><td colspan="1" style="border-bottom: 1px solid black"></td></tr>
## <tr><td style="text-align:left"></td><td>LifeExpectancy</td></tr>
## <tr><td style="text-align:left"></td><td>Dependent Variable</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">GDPperCapita</td><td>0.0002<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>p = 0.000</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">Constant</td><td>66.637<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>p = 0.000</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">Observations</td><td>949</td></tr>
## <tr><td style="text-align:left">R<sup>2</sup></td><td>0.361</td></tr>
## <tr><td style="text-align:left">Adjusted R<sup>2</sup></td><td>0.360</td></tr>
## <tr><td style="text-align:left">Residual Std. Error</td><td>6.709 (df = 947)</td></tr>
## <tr><td style="text-align:left">F Statistic</td><td>534.589<sup>***</sup> (df = 1; 947)</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"><em>Note:</em></td><td style="text-align:right"><sup>*</sup>p<0.1; <sup>**</sup>p<0.05; <sup>***</sup>p<0.01</td></tr>
## </table>

MISSING

getXKCD(which = "random")

## Warning in readPNG(paste(tempdir(), "xkcd.png", sep = "/")): libpng
## warning: iCCP: known incorrect sRGB profile

## $month
## [1] "12"
## 
## $num
## [1] 832
## 
## $link
## [1] "http://xkcd.com/832_large/"
## 
## $year
## [1] "2010"
## 
## $news
## [1] ""
## 
## $safe_title
## [1] "Tic-Tac-Toe"
## 
## $transcript
## [1] "((The comic comprises two large square maps, each divided into nine sections, some of which are further subdivided in the same way.  The subdivisions continue down for up to five levels, and the lower map has more tiny diagrams than the upper. The smallest divisions at every scale are completed tic-tac-toe games.))\n\n[[Explanatory text:]]\nComplete map of optimal Tic-Tac-Toe moves\n\nYour move is given by the position of the largest red symbol on the grid. When your opponent picks a move, zoom in on the region of the grid where they went. Repeat.\n\nMap for X:\n((The first square map))\n\nMap for Y:\n((The second square map))\n\n{{Title text: The only winning move is to play, perfectly, waiting for your opponent to make a mistake.}}"
## 
## $alt
## [1] "The only winning move is to play, perfectly, waiting for your opponent to make a mistake."
## 
## $img
## [1] "https://imgs.xkcd.com/comics/tic_tac_toe.png"
## 
## $title
## [1] "Tic-Tac-Toe"
## 
## $day
## [1] "10"
## 
## attr(,"class")
## [1] "rxkcd"